home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
tx072291.zip
/
TXPATTER.PRG
< prev
next >
Wrap
Text File
|
1991-07-22
|
918b
|
31 lines
*:*********************************************************************
*:
*: Procedure file: TXPATTERNBAR.PRG
*:
*: System: Texas Associated Software Laser Library
*: Author: Jose E. Lopez, Jr.
*: Copyright (c) 1991, Texas Associated Software - Red Oak, TX
*:
*:*********************************************************************
txinit()
txreset()
txpatternbar(01, 10, 20, 15, 1, .T.)
txcolprint(17, 12, .F., "Fill Pattern 1")
txpatternbar(01, 50, 20, 15, 2, .T.)
txcolprint(17, 52, .F., "Fill Pattern 2")
txpatternbar(21, 10, 20, 15, 3, .T.)
txcolprint(37, 12, .F., "Fill Pattern 3")
txpatternbar(21, 50, 20, 15, 4, .T.)
txcolprint(37, 52, .F., "Fill Pattern 4")
txpatternbar(41, 10, 20, 15, 5, .T.)
txcolprint(57, 12, .F., "Fill Pattern 5")
txpatternbar(41, 50, 20, 15, 6, .T.)
txcolprint(57, 52, .F., "Fill Pattern 6")
txclear()
*: EOF: TXPATTERNBAR.PRG